home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / meterbar / form1.frm < prev    next >
Text File  |  1995-09-06  |  4KB  |  104 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Meter Bar Demo"
  5.    ClientHeight    =   3015
  6.    ClientLeft      =   1095
  7.    ClientTop       =   1485
  8.    ClientWidth     =   3930
  9.    Height          =   3420
  10.    Left            =   1035
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   3015
  13.    ScaleWidth      =   3930
  14.    Top             =   1140
  15.    Width           =   4050
  16.    Begin MeterBar MeterBar4 
  17.       BackColor       =   &H00FFFFFF&
  18.       BorderStyle     =   2  'Three D
  19.       FontBold        =   -1  'True
  20.       FontItalic      =   -1  'True
  21.       FontName        =   "MS Sans Serif"
  22.       FontSize        =   12
  23.       FontStrikethru  =   0   'False
  24.       FontUnderline   =   0   'False
  25.       ForeColor       =   &H000000FF&
  26.       Height          =   375
  27.       Left            =   1560
  28.       Orientation     =   1  'Right to left
  29.       Position        =   1
  30.       Range           =   150
  31.       Top             =   1200
  32.       Width           =   2295
  33.    End
  34.    Begin MeterBar MeterBar3 
  35.       BackColor       =   &H00FFFFFF&
  36.       BorderStyle     =   2  'Three D
  37.       ForeColor       =   &H00FF0000&
  38.       Height          =   375
  39.       Left            =   1560
  40.       Orientation     =   0  'Left to right
  41.       Position        =   1
  42.       Range           =   100
  43.       Top             =   720
  44.       Width           =   2295
  45.    End
  46.    Begin MeterBar MeterBar2 
  47.       BackColor       =   &H00FFFFFF&
  48.       BorderStyle     =   2  'Three D
  49.       FontBold        =   0   'False
  50.       FontItalic      =   0   'False
  51.       FontName        =   "MS Serif"
  52.       FontSize        =   8.25
  53.       FontStrikethru  =   0   'False
  54.       FontUnderline   =   0   'False
  55.       ForeColor       =   &H00008080&
  56.       Height          =   2175
  57.       Left            =   840
  58.       Orientation     =   3  'Top to bottom
  59.       Position        =   1
  60.       Range           =   50
  61.       Top             =   720
  62.       Width           =   555
  63.    End
  64.    Begin MeterBar MeterBar1 
  65.       BackColor       =   &H00FFFFFF&
  66.       BorderStyle     =   2  'Three D
  67.       FontBold        =   -1  'True
  68.       FontItalic      =   0   'False
  69.       FontName        =   "MS Sans Serif"
  70.       FontSize        =   8.25
  71.       FontStrikethru  =   0   'False
  72.       FontUnderline   =   -1  'True
  73.       ForeColor       =   &H00800080&
  74.       Height          =   2175
  75.       Left            =   120
  76.       Orientation     =   2  'Bottom to top
  77.       Position        =   1
  78.       Range           =   200
  79.       Top             =   720
  80.       Width           =   555
  81.    End
  82.    Begin Timer Timer1 
  83.       Interval        =   250
  84.       Left            =   3420
  85.       Top             =   2520
  86.    End
  87.    Begin Label Label1 
  88.       BackColor       =   &H00C0C0C0&
  89.       Caption         =   "The bar can move from left to right, bottom to top, right to left or top to bottom."
  90.       Height          =   495
  91.       Left            =   120
  92.       TabIndex        =   0
  93.       Top             =   120
  94.       Width           =   3675
  95.    End
  96. End
  97. Sub Timer1_Timer ()
  98.     If MeterBar1.Position < MeterBar1.Range Then MeterBar1.Position = MeterBar1.Position + 1 Else MeterBar1.Position = 0
  99.     If MeterBar2.Position < MeterBar2.Range Then MeterBar2.Position = MeterBar2.Position + 1 Else MeterBar2.Position = 0
  100.     If MeterBar3.Position < MeterBar3.Range Then MeterBar3.Position = MeterBar3.Position + 1 Else MeterBar3.Position = 0
  101.     If MeterBar4.Position < MeterBar4.Range Then MeterBar4.Position = MeterBar4.Position + 1 Else MeterBar4.Position = 0
  102. End Sub
  103.  
  104.